home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / vbsock11 / chat / server / install.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-22  |  3.0 KB  |  107 lines
  1. VERSION 2.00
  2. Begin Form installed 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Board Setup"
  5.    ClientHeight    =   4770
  6.    ClientLeft      =   2265
  7.    ClientTop       =   1860
  8.    ClientWidth     =   5490
  9.    Height          =   5175
  10.    Left            =   2205
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4770
  13.    ScaleWidth      =   5490
  14.    Top             =   1515
  15.    Width           =   5610
  16.    Begin CheckBox InstalledCheck 
  17.       BackColor       =   &H00C0C0C0&
  18.       Caption         =   "Installed"
  19.       Height          =   375
  20.       Left            =   1320
  21.       TabIndex        =   6
  22.       Top             =   840
  23.       Width           =   1095
  24.    End
  25.    Begin CommandButton CancelButton 
  26.       BackColor       =   &H00FF8080&
  27.       Caption         =   "&Cancel"
  28.       Height          =   495
  29.       Left            =   3240
  30.       TabIndex        =   5
  31.       Top             =   3960
  32.       Width           =   1335
  33.    End
  34.    Begin CommandButton OkButton 
  35.       BackColor       =   &H00FF8080&
  36.       Caption         =   "&Ok"
  37.       Default         =   -1  'True
  38.       Height          =   495
  39.       Left            =   960
  40.       TabIndex        =   4
  41.       Top             =   3960
  42.       Width           =   1215
  43.    End
  44.    Begin OptionButton TokenRingRadio 
  45.       BackColor       =   &H00C0C0C0&
  46.       Caption         =   "Token Ring"
  47.       Height          =   495
  48.       Left            =   2640
  49.       TabIndex        =   3
  50.       Top             =   2520
  51.       Width           =   1335
  52.    End
  53.    Begin OptionButton EthernetRadio 
  54.       BackColor       =   &H00C0C0C0&
  55.       Caption         =   "Ethernet"
  56.       Height          =   495
  57.       Left            =   1440
  58.       TabIndex        =   2
  59.       Top             =   2520
  60.       Width           =   1095
  61.    End
  62.    Begin Frame Frame2 
  63.       BackColor       =   &H00C0C0C0&
  64.       Caption         =   "Board Type"
  65.       Height          =   1095
  66.       Left            =   1200
  67.       TabIndex        =   1
  68.       Top             =   2160
  69.       Width           =   3255
  70.    End
  71.    Begin Frame Frame1 
  72.       BackColor       =   &H00C0C0C0&
  73.       Caption         =   "Instalation"
  74.       Height          =   855
  75.       Left            =   1200
  76.       TabIndex        =   0
  77.       Top             =   480
  78.       Width           =   1455
  79.    End
  80. Sub CancelButton_Click ()
  81.     Unload installed
  82. End Sub
  83. Sub Form_Load ()
  84.     InstalledCheck.Value = glblBoard.IsInstalled
  85.     If glblBoard.BoardType = 1 Then
  86.         EtherNetRadio.Value = True
  87.         TokenRingRadio.Value = False
  88.     Else
  89.         EtherNetRadio.Value = False
  90.         TokenRingRadio.Value = True
  91.     End If
  92. End Sub
  93. Sub OkButton_Click ()
  94.     DidTheDataChange = 1
  95.     If EtherNetRadio.Value = True Then
  96.         glblBoard.BoardType = 1
  97.     Else
  98.         glblBoard.BoardType = 2
  99.     End If
  100.     If InstalledCheck.Value = 1 Then
  101.         glblBoard.IsInstalled = 1
  102.     Else
  103.         glblBoard.IsInstalled = 0
  104.     End If
  105.     Unload installed
  106. End Sub
  107.